/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / graphics / module1.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 04 02 00 0f 00 50 01 | 50 01 09 00 01 02 03 04 |......P.|P.......|
|00000010| 06 0b 05 08 0a 80 11 80 | 11 22 01 00 00 1a 00 c5 |........|."......|
|00000020| 00 ea 00 00 00 00 00 74 | 00 00 00 b8 00 00 00 00 |.......t|........|
|00000030| 00 d1 00 00 00 7c 00 00 | 00 00 00 00 00 87 00 9e |.....|..|........|
|00000040| 00 db 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6f |........|.......o|
|00000050| 00 00 00 d6 00 00 00 5a | 00 0d 01 94 00 00 00 00 |.......Z|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 22 01 00 00 ae 00 40 | 11 43 72 65 61 74 65 50 |.".....@|.CreateP|
|00000080| 72 6f 67 4d 61 6e 49 74 | 65 6d 00 00 80 01 78 00 |rogManIt|em....x.|
|00000090| 00 00 04 46 6f 72 6d 00 | 00 80 07 43 6d 64 4c 69 |...Form.|...CmdLi|
|000000a0| 6e 65 00 00 80 09 49 63 | 6f 6e 54 69 74 6c 65 00 |ne....Ic|onTitle.|
|000000b0| 00 80 06 53 63 72 65 65 | 6e 00 01 00 0c 4d 6f 75 |...Scree|n....Mou|
|000000c0| 73 65 50 6f 69 6e 74 65 | 72 00 00 00 06 4c 61 62 |sePointe|r....Lab|
|000000d0| 65 6c 31 00 00 00 09 4c | 69 6e 6b 54 6f 70 69 63 |el1....L|inkTopic|
|000000e0| 1a 01 00 08 4c 69 6e 6b | 4d 6f 64 65 00 00 80 01 |....Link|Mode....|
|000000f0| 69 00 00 80 01 7a 00 00 | 00 0b 4c 69 6e 6b 54 69 |i....z..|..LinkTi|
|00000100| 6d 65 6f 75 74 00 00 40 | 12 43 72 65 61 74 65 50 |meout..@|.CreateP|
|00000110| 72 6f 67 4d 61 6e 47 72 | 6f 75 70 00 00 80 09 47 |rogManGr|oup....G|
|00000120| 72 6f 75 70 4e 61 6d 65 | 00 00 80 09 47 72 6f 75 |roupName|....Grou|
|00000130| 70 50 61 74 68 00 00 00 | 04 64 61 76 65 08 00 00 |pPath...|.dave...|
|00000140| 00 18 00 09 00 08 00 ff | ff ff ff ff ff ff ff 00 |........|........|
|00000150| 00 04 00 03 01 00 12 00 | 43 72 65 61 74 65 50 72 |........|CreatePr|
|00000160| 6f 67 4d 61 6e 47 72 6f | 75 70 01 08 30 64 04 00 |ogManGro|up..0d..|
|00000170| 00 18 00 00 00 58 00 1e | 00 ea 00 00 01 03 00 6f |.....X..|.......o|
|00000180| 00 00 80 74 00 00 00 00 | 01 00 02 07 00 00 00 0d |...t....|........|
|00000190| 01 00 02 07 00 00 00 00 | 00 76 00 05 00 00 00 0d |........|.v......|
|000001a0| 3d 2d 00 00 00 76 00 20 | 00 00 00 20 50 72 6f 63 |=-...v. |... Proc|
|000001b0| 65 64 75 72 65 3a 20 43 | 72 65 61 74 65 50 72 6f |edure: C|reatePro|
|000001c0| 67 4d 61 6e 47 72 6f 75 | 70 00 00 76 00 2f 00 00 |gManGrou|p..v./..|
|000001d0| 00 20 41 72 67 75 6d 65 | 6e 74 73 3a 20 58 0d 0b |. Argume|nts: X..|
|000001e0| 20 54 68 65 20 46 6f 72 | 6d 20 77 68 65 72 65 20 | The For|m where |
|000001f0| 61 20 4c 61 62 65 6c 31 | 20 65 78 69 73 74 2d 00 |a Label1| exist-.|
|00000200| 00 76 00 36 00 00 00 0d | 0c 20 47 72 6f 75 70 4e |.v.6....|. GroupN|
|00000210| 61 6d 65 24 20 20 41 20 | 73 74 72 69 6e 67 20 74 |ame$  A |string t|
|00000220| 68 61 74 20 63 6f 6e 74 | 61 69 6e 73 20 74 68 65 |hat cont|ains the|
|00000230| 20 67 72 6f 75 70 20 6e | 61 6d 65 00 00 76 00 36 | group n|ame..v.6|
|00000240| 00 00 00 0d 0c 20 47 72 | 6f 75 70 50 61 74 68 24 |..... Gr|oupPath$|
|00000250| 20 20 41 20 73 74 72 69 | 6e 67 20 74 68 61 74 20 |  A stri|ng that |
|00000260| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 67 72 6f |contains| the gro|
|00000270| 75 70 20 66 69 6c 65 00 | 00 76 00 19 00 00 00 0d |up file.|.v......|
|00000280| 18 20 6e 61 6d 65 20 20 | 69 65 20 27 6d 79 61 70 |. name  |ie 'myap|
|00000290| 70 2e 67 72 70 27 20 00 | 00 76 00 05 00 00 00 0d |p.grp' .|.v......|
|000002a0| 3d 2d 00 00 00 00 00 00 | 10 76 00 02 00 04 00 00 |=-......|.v......|
|000002b0| 10 e5 00 0b 00 0b 00 94 | 00 12 00 9e 00 00 10 76 |........|.......v|
|000002c0| 00 02 00 04 00 00 10 76 | 00 05 00 04 00 0d 46 2d |.......v|......F-|
|000002d0| 00 00 10 76 00 44 00 04 | 00 20 57 69 6e 64 6f 77 |...v.D..|. Window|
|000002e0| 73 20 72 65 71 75 69 72 | 65 73 20 44 44 45 20 69 |s requir|es DDE i|
|000002f0| 6e 20 6f 72 64 65 72 20 | 74 6f 20 63 72 65 61 74 |n order |to creat|
|00000300| 65 20 61 20 70 72 6f 67 | 72 61 6d 20 67 72 6f 75 |e a prog|ram grou|
|00000310| 70 20 61 6e 64 20 69 74 | 65 6d 2e 00 10 76 00 4a |p and it|em...v.J|
|00000320| 00 04 00 20 48 65 72 65 | 2c 20 61 20 56 69 73 75 |... Here|, a Visu|
|00000330| 61 6c 20 42 61 73 69 63 | 20 6c 61 62 65 6c 20 63 |al Basic| label c|
|00000340| 6f 6e 74 72 6f 6c 20 69 | 73 20 75 73 65 64 20 74 |ontrol i|s used t|
|00000350| 6f 20 67 65 6e 65 72 61 | 74 65 20 74 68 65 20 44 |o genera|te the D|
|00000360| 44 45 20 6d 65 73 73 61 | 67 65 73 00 10 76 00 05 |DE messa|ges..v..|
|00000370| 00 04 00 0d 46 2d 00 00 | 10 4f 00 fe ff 00 00 76 |....F-..|.O.....v|
|00000380| 00 02 00 00 00 00 10 76 | 00 02 00 04 00 00 10 76 |.......v|.......v|
|00000390| 00 05 00 04 00 0d 20 2d | 00 00 10 76 00 23 00 04 |...... -|...v.#..|
|000003a0| 00 20 53 65 74 20 4c 69 | 6e 6b 54 6f 70 69 63 20 |. Set Li|nkTopic |
|000003b0| 74 6f 20 50 52 4f 47 52 | 41 4d 20 4d 41 4e 41 47 |to PROGR|AM MANAG|
|000003c0| 45 52 2d 00 10 76 00 05 | 00 04 00 0d 20 2d 00 00 |ER-..v..|.... -..|
|000003d0| 10 ed 00 14 00 6a 02 0f | 00 50 72 6f 67 4d 61 6e |.....j..|.ProgMan|
|000003e0| 7c 50 72 6f 67 6d 61 6e | 00 0b 00 6f 00 11 00 ae ||Progman|...o....|
|000003f0| 00 12 00 b8 00 00 10 e4 | 08 0b 00 6f 00 11 00 ae |........|...o....|
|00000400| 00 12 00 c5 00 00 10 0b | 04 d1 00 e4 04 e4 28 3e |........|......(>|
|00000410| 00 ff ff 2a 03 76 00 2e | 00 3d 00 20 4c 6f 6f 70 |...*.v..|.=. Loop|
|00000420| 20 74 6f 20 65 6e 73 75 | 72 65 20 74 68 61 74 20 | to ensu|re that |
|00000430| 74 68 65 72 65 20 69 73 | 20 65 6e 6f 75 67 68 20 |there is| enough |
|00000440| 74 69 6d 65 20 74 6f 00 | 18 28 01 0c 04 d6 00 76 |time to.|.(.....v|
|00000450| 00 35 00 3d 00 20 70 72 | 6f 63 65 73 73 20 44 44 |.5.=. pr|ocess DD|
|00000460| 45 20 45 78 65 63 75 74 | 65 2e 20 20 54 68 69 73 |E Execut|e.  This|
|00000470| 20 69 73 20 72 65 64 75 | 6e 64 61 6e 74 20 62 75 | is redu|ndant bu|
|00000480| 74 20 6e 65 65 64 65 64 | 6f 00 10 4d 00 ff ff 01 |t needed|o..M....|
|00000490| 00 76 00 15 00 3d 00 20 | 66 6f 72 20 64 65 62 75 |.v...=. |for debu|
|000004a0| 67 20 77 69 6e 64 6f 77 | 73 2e 65 00 10 e5 00 64 |g window|s.e....d|
|000004b0| 00 0b 00 6f 00 11 00 ae | 00 12 00 db 00 00 00 76 |...o....|.......v|
|000004c0| 00 02 00 00 00 00 00 76 | 00 02 00 00 00 00 10 76 |.......v|.......v|
|000004d0| 00 05 00 04 00 0d 15 2d | 00 00 10 76 00 17 00 04 |.......-|...v....|
|000004e0| 00 20 43 72 65 61 74 65 | 20 70 72 6f 67 72 61 6d |. Create| program|
|000004f0| 20 67 72 6f 75 70 6f 00 | 10 76 00 05 00 04 00 0d | groupo.|.v......|
|00000500| 15 2d 00 00 10 0b 00 6f | 00 11 00 ae 00 65 00 ed |.-.....o|.....e..|
|00000510| 00 12 00 b6 03 0d 00 5b | 43 72 65 61 74 65 47 72 |.......[|CreateGr|
|00000520| 6f 75 70 28 00 0b 1c 00 | 01 a3 00 e5 00 2c 00 ac |oup(....|.....,..|
|00000530| 00 a3 00 0b 1c 0d 01 a3 | 00 ed 00 08 00 e0 03 02 |........|........|
|00000540| 00 29 5d 00 00 a3 00 1b | 01 07 00 01 00 78 00 00 |.)].....|.....x..|
|00000550| 00 76 00 02 00 00 00 00 | 00 76 00 02 00 00 00 00 |.v......|.v......|
|00000560| 10 76 00 05 00 04 00 0d | 11 2d 00 00 10 76 00 13 |.v......|.-...v..|
|00000570| 00 04 00 20 52 65 73 65 | 74 20 70 72 6f 70 65 72 |... Rese|t proper|
|00000580| 74 69 65 73 74 00 10 76 | 00 05 00 04 00 0d 11 2d |tiest..v|.......-|
|00000590| 00 00 10 e5 00 32 00 0b | 00 6f 00 11 00 ae 00 12 |.....2..|.o......|
|000005a0| 00 db 00 00 10 e4 00 0b | 00 6f 00 11 00 ae 00 12 |........|.o......|
|000005b0| 00 c5 00 00 10 76 00 02 | 00 04 00 00 10 e4 00 0b |.....v..|........|
|000005c0| 00 94 00 12 00 9e 00 00 | 00 00 00 00 00 39 00 09 |........|.....9..|
|000005d0| 00 08 00 ff ff ff ff ff | ff ff ff 2f 00 04 00 03 |........|.../....|
|000005e0| 00 00 11 00 43 72 65 61 | 74 65 50 72 6f 67 4d 61 |....Crea|teProgMa|
|000005f0| 6e 49 74 65 6d 01 08 30 | d0 04 00 00 18 00 00 00 |nItem..0|........|
|00000600| 76 00 02 00 00 00 00 00 | 76 00 02 00 00 00 00 00 |v.......|v.......|
|00000610| 76 00 02 00 00 00 00 00 | 76 00 05 00 00 00 0d 3a |v.......|v......:|
|00000620| 2d 00 00 00 76 00 1f 00 | 00 00 20 50 72 6f 63 65 |-...v...|.. Proce|
|00000630| 64 75 72 65 3a 20 43 72 | 65 61 74 65 50 72 6f 67 |dure: Cr|eateProg|
|00000640| 4d 61 6e 49 74 65 6d 2d | 00 00 76 00 02 00 00 00 |ManItem-|..v.....|
|00000650| 00 00 76 00 2e 00 00 00 | 20 41 72 67 75 6d 65 6e |..v.....| Argumen|
|00000660| 74 73 3a 20 58 0d 0b 20 | 54 68 65 20 66 6f 72 6d |ts: X.. |The form|
|00000670| 20 77 68 65 72 65 20 4c | 61 62 65 6c 31 20 65 78 | where L|abel1 ex|
|00000680| 69 73 74 73 00 00 76 00 | 02 00 00 00 00 00 76 00 |ists..v.|......v.|
|00000690| 32 00 00 00 0d 0c 20 43 | 6d 64 4c 69 6e 65 24 0d |2..... C|mdLine$.|
|000006a0| 04 20 41 20 73 74 72 69 | 6e 67 20 74 68 61 74 20 |. A stri|ng that |
|000006b0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 63 6f 6d |contains| the com|
|000006c0| 6d 61 6e 64 00 00 76 00 | 1c 00 00 00 0d 18 20 6c |mand..v.|...... l|
|000006d0| 69 6e 65 20 66 6f 72 20 | 74 68 65 20 69 74 65 6d |ine for |the item|
|000006e0| 2f 69 63 6f 6e 2e 00 00 | 76 00 1c 00 00 00 0d 18 |/icon...|v.......|
|000006f0| 20 69 65 20 27 63 3a 5c | 6d 79 61 70 70 5c 73 65 | ie 'c:\|myapp\se|
|00000700| 74 75 70 2e 65 78 65 27 | 00 00 76 00 02 00 00 00 |tup.exe'|..v.....|
|00000710| 00 00 76 00 32 00 00 00 | 0d 0c 20 49 63 6f 6e 54 |..v.2...|.. IconT|
|00000720| 69 74 6c 65 24 20 20 41 | 20 73 74 72 69 6e 67 20 |itle$  A| string |
|00000730| 74 68 61 74 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |that con|tains th|
|00000740| 65 20 69 74 65 6d 27 73 | 00 00 76 00 0c 00 00 00 |e item's|..v.....|
|00000750| 0d 18 20 63 61 70 74 69 | 6f 6e 00 00 76 00 05 00 |.. capti|on..v...|
|00000760| 00 00 0d 3a 2d 00 00 00 | 58 00 1e 00 5a 00 00 01 |...:-...|X...Z...|
|00000770| 03 00 6f 00 00 80 74 00 | 00 00 7c 00 00 02 07 00 |..o...t.|..|.....|
|00000780| 00 00 87 00 00 02 07 00 | 00 00 00 10 00 10 e5 00 |........|........|
|00000790| 0b 00 0b 00 94 00 12 00 | 9e 00 00 10 00 10 76 00 |........|......v.|
|000007a0| 05 00 04 00 0d 46 2d 00 | 00 10 76 00 44 00 04 00 |.....F-.|..v.D...|
|000007b0| 20 57 69 6e 64 6f 77 73 | 20 72 65 71 75 69 72 65 | Windows| require|
|000007c0| 73 20 44 44 45 20 69 6e | 20 6f 72 64 65 72 20 74 |s DDE in| order t|
|000007d0| 6f 20 63 72 65 61 74 65 | 20 61 20 70 72 6f 67 72 |o create| a progr|
|000007e0| 61 6d 20 67 72 6f 75 70 | 20 61 6e 64 20 69 74 65 |am group| and ite|
|000007f0| 6d 2e 00 10 76 00 4a 00 | 04 00 20 48 65 72 65 2c |m...v.J.|.. Here,|
|00000800| 20 61 20 56 69 73 75 61 | 6c 20 42 61 73 69 63 20 | a Visua|l Basic |
|00000810| 6c 61 62 65 6c 20 63 6f | 6e 74 72 6f 6c 20 69 73 |label co|ntrol is|
|00000820| 20 75 73 65 64 20 74 6f | 20 67 65 6e 65 72 61 74 | used to| generat|
|00000830| 65 20 74 68 65 20 44 44 | 45 20 6d 65 73 73 61 67 |e the DD|E messag|
|00000840| 65 73 00 10 76 00 05 00 | 04 00 0d 46 2d 00 00 10 |es..v...|...F-...|
|00000850| 4f 00 fe ff 00 00 00 00 | 00 10 76 00 05 00 04 00 |O.......|..v.....|
|00000860| 0d 21 2d 00 00 10 76 00 | 23 00 04 00 20 53 65 74 |.!-...v.|#... Set|
|00000870| 20 4c 69 6e 6b 54 6f 70 | 69 63 20 74 6f 20 50 52 | LinkTop|ic to PR|
|00000880| 4f 47 52 41 4d 20 4d 41 | 4e 41 47 45 52 2d 00 10 |OGRAM MA|NAGER-..|
|00000890| 76 00 05 00 04 00 0d 21 | 2d 00 00 10 ed 00 14 00 |v......!|-.......|
|000008a0| aa 02 0f 00 50 72 6f 67 | 4d 61 6e 7c 50 72 6f 67 |....Prog|Man|Prog|
|000008b0| 6d 61 6e 00 0b 00 6f 00 | 11 00 ae 00 12 00 b8 00 |man...o.|........|
|000008c0| 00 10 e4 08 0b 00 6f 00 | 11 00 ae 00 12 00 c5 00 |......o.|........|
|000008d0| 00 10 0b 04 d1 00 e4 04 | e4 28 3e 00 ff ff 6a 03 |........|.(>...j.|
|000008e0| 76 00 2e 00 3d 00 20 4c | 6f 6f 70 20 74 6f 20 65 |v...=. L|oop to e|
|000008f0| 6e 73 75 72 65 20 74 68 | 61 74 20 74 68 65 72 65 |nsure th|at there|
|00000900| 20 69 73 20 65 6e 6f 75 | 67 68 20 74 69 6d 65 20 | is enou|gh time |
|00000910| 74 6f 00 18 28 01 0c 04 | d6 00 76 00 35 00 3d 00 |to..(...|..v.5.=.|
|00000920| 20 70 72 6f 63 65 73 73 | 20 44 44 45 20 45 78 65 | process| DDE Exe|
|00000930| 63 75 74 65 2e 20 20 54 | 68 69 73 20 69 73 20 72 |cute.  T|his is r|
|00000940| 65 64 75 6e 64 61 6e 74 | 20 62 75 74 20 6e 65 65 |edundant| but nee|
|00000950| 64 65 64 6f 00 10 4d 00 | ff ff 01 00 76 00 15 00 |dedo..M.|....v...|
|00000960| 3d 00 20 66 6f 72 20 64 | 65 62 75 67 20 77 69 6e |=. for d|ebug win|
|00000970| 64 6f 77 73 2e 65 00 10 | e5 00 64 00 0b 00 6f 00 |dows.e..|..d...o.|
|00000980| 11 00 ae 00 12 00 db 00 | 00 00 00 10 00 10 76 00 |........|......v.|
|00000990| 05 00 04 00 0d 30 2d 00 | 00 10 76 00 32 00 04 00 |.....0-.|..v.2...|
|000009a0| 20 43 72 65 61 74 65 20 | 50 72 6f 67 72 61 6d 20 | Create |Program |
|000009b0| 49 74 65 6d 2c 20 6f 6e | 65 20 6f 66 20 74 68 65 |Item, on|e of the|
|000009c0| 20 69 63 6f 6e 73 20 74 | 6f 20 6c 61 75 6e 63 68 | icons t|o launch|
|000009d0| 00 10 76 00 26 00 04 00 | 20 61 6e 20 61 70 70 6c |..v.&...| an appl|
|000009e0| 69 63 61 74 69 6f 6e 20 | 66 72 6f 6d 20 50 72 6f |ication |from Pro|
|000009f0| 67 72 61 6d 20 4d 61 6e | 61 67 65 72 00 10 76 00 |gram Man|ager..v.|
|00000a00| 05 00 04 00 0d 30 2d 00 | 00 10 0b 00 6f 00 11 00 |.....0-.|....o...|
|00000a10| ae 00 65 00 ed 00 0e 00 | 30 04 09 00 5b 41 64 64 |..e.....|0...[Add|
|00000a20| 49 74 65 6d 28 00 0b 1c | 7c 00 a3 00 e5 00 2c 00 |Item(...||.....,.|
|00000a30| ac 00 a3 00 0b 1c 87 00 | a3 00 e5 00 2c 00 ac 00 |........|....,...|
|00000a40| a3 00 ed 00 0a 00 5e 04 | 04 00 2c 2c 29 5d 00 00 |......^.|..,,)]..|
|00000a50| a3 00 1b 01 07 00 01 00 | 78 00 00 10 00 10 76 00 |........|x.....v.|
|00000a60| 05 00 04 00 0d 11 2d 00 | 00 10 76 00 13 00 04 00 |......-.|..v.....|
|00000a70| 20 52 65 73 65 74 20 70 | 72 6f 70 65 72 74 69 65 | Reset p|ropertie|
|00000a80| 73 74 00 10 76 00 05 00 | 04 00 0d 11 2d 00 00 10 |st..v...|....-...|
|00000a90| e5 00 32 00 0b 00 6f 00 | 11 00 ae 00 12 00 db 00 |..2...o.|........|
|00000aa0| 00 10 e4 00 0b 00 6f 00 | 11 00 ae 00 12 00 c5 00 |......o.|........|
|00000ab0| 00 10 00 10 e4 00 0b 00 | 94 00 12 00 9e 00 00 00 |........|........|
|00000ac0| 39 00 00 00 00 00 09 00 | 08 00 ff ff ff ff ff ff |9.......|........|
|00000ad0| ff ff 35 00 04 00 03 00 | fd                      |..5.....|.       |
+--------+-------------------------+-------------------------+--------+--------+